Option Explicit
Sub H_Sample008()
    'ϥΦbH_Sample002s@XӪϪ
    Dim myCht      As Chart
    Dim mySht      As Worksheet
    Dim myFileName As String
    Set mySht = ThisWorkbook.Worksheets(1)		'Ϫ
    Set myCht = mySht.ChartObjects(mySht.ChartObjects.Count).Chart
    myFileName = "myCht.jpg"					'twɮצW
    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName
    On Error GoTo 0
    'wɮ׮榡
    myCht.Export _
        Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="JPG"
    Set mySht = Nothing						'
    Set myCht = Nothing
End Sub
